ALTERf RECORD UNLOCKED nFLAGf NFLAG MALTER BMULT ALTER bADDf mALTERf Current Record has been FF' Deleted Altered8 MALTER FNALTER FNLASTKEY UNIX WINDOWS [Esc] [Ctrl]-[Q] [ESC] [Ctrl]-[Q] [F10] [Ctrl]-[W] [Ctrl]-'[' BANSI cDEFf Make a Selection CCHOICES BNOSEL NSCHEME2 NSCHEME CWREAD MCHOICE FNDEACT MCHOICE CWREAD NTEMP NLEVEL CWINDOW cNAMEf SCREEN:CONSOLE:PRN:LPT1:LPT2:LPT3:LPT4:COM1:COM2:COM3:COM4 cEXTf cEXTf bSIDEWAYSf cMEMPATHf cTEMPPATHf CNAME CPATH BSIDEWAYS CMEMPATH CTEMPPATH File FF&j in use... Waiting for access, Press [Esc] to abort NINKEY BMULT ALERT HALFHEIGHT8 FONT ' STYLE ' COLOR SCHEME FF NLEVEL CWINDOW NWINDOW CFONT2 CFONTS CSTYLE2 NFONT2 NSCHEME2 NPARAMETERCFONT TERCSTYLE NFONT NSCHEME bADDf IF EOF() .OR. (SET("DELETE") = "ON" .AND. DELETED()) .OR. (SET("DELETE") = "OFF" .AND. .NOT. DELETED()) .OR. .NOT. (&cFILTER) IF EOF() .OR. (SET("DELETE") = "ON" .AND. DELETED()) .OR. (SET("DELETE") = "OFF" .AND. .NOT. DELETED()) .OR. .NOT. (&cFILTER) IF .NOT. BOF() .AND. (EOF() .OR. (SET("DELETE") = "ON" .AND. DELETED()) .OR. (SET("DELETE") = "OFF" .AND. .NOT. DELETED()) .OR. .NOT. (&cFILTER)) IF .NOT. BOF() .AND. (EOF() .OR. (SET("DELETE") = "ON" .AND. DELETED()) .OR. (SET("DELETE") = "OFF" .AND. .NOT. DELETED()) .OR. .NOT. (&cFILTER)) IF EOF() .OR. (SET("DELETE") = "ON" .AND. DELETED()) .OR. (SET("DELETE") = "OFF" .AND. .NOT. DELETED()) .OR. .NOT. (&cFILTER) cTXTf nLEVELf NLEVEL CWINDOW CFONT2 CSTYLE2 NFONT2 CFONT CSTYLE ERNFONT mKEYf NEXTKEY NEXTKEY NEXTKEY PRINT cPRNf Printer not ready... Waiting for access, Press [Esc] to abort CPRINT1 NINKEY ALERT FULLPATHz cNAMEf FNPROGRAM FNPROGRAM CNAME CTEMP Record FFFR^D in File in use... Waiting for access, Press [Esc] to abort NINKEY BMULT ALERT CONSOLEz SET CONSOLE &cTEMP CSTATUS CTEMP CFILE NFILE FNFILE DEFINE WINDOW TALK AT 1,1 SIZE 3-1-1,40-1-1 FLOAT SHADOW &cFONTS TALKz &cCOMMAND SET TALK &cTALK CCOMMAND CALTER CFONTS CTALK NALTER NTALK NSCHEME FNFONTS ERFNFILE TERRELEASE nNUMf nLENGTHf NLENGTH cMSGf Enter Choice (Y or N) cCHOICEf ENTER \ RECCOUNT() .OR. .NOT. (&cFILTER)) .AND. .NOT. cCHOICE $ "AHRQ" No records on file ABFGHRQ DO FLD_SAY&cFORM_SCR Insufficient disk space DO FLD_SAY&cFORM_SCR DO FLD_GET&cFORM_SCR DO FLD_BRO&cFORM_SCR DO FLD_SAY&cFORM_SCR Delete what? DO FLD_SAY&cFORM_SCR DO FLD_FND&cFORM_NDX DEFINE WINDOW GO_TO AT nGO_ROW,nGO_COL SIZE 7,10 FLOAT SHADOW &cFONTS \ Ctrl-[ Help function key Ctrl-G Del Delete current char Ctrl-V Ins Toggle Insert mode GET_HELP Ascending Descending Ascending8 SET ORDER TO (nORDER) &cASCEND DELETED DELETED No Deleted Records KEY DELETED() .AND.( SET FILTER TO &cFILTER DO FLD_BRO&cFORM_SCR DO FLD_SAY&cFORM_SCR SET FILTER TO &cRECALL .AND. DELETED() DO FLD_FND&cFORM_NDX SET FILTER TO &cRECALL DO FLD_SAY&cFORM_SCR DO FLD_SAY&cFORM_SCR cINDEX(nINDEX,2) cINDEX(nINDEX,1)f SET ORDER TO cINDEX(nINDEX,2) &cASCEND IN SCR Update what? DO FLD_GET&cFORM_SCR cINDEXf cINDEX(nINDEX,2) BEXTRA CINDEX TERNWINDOW ERNPARAMETERBADD METERBDISPLAY BSAVED CASCEND RCBROWSE2 RCCHOICE RCCHOICES CFILTER2 RCFONTS CFORM CFORM_NDX CFORM_SCR CPROGRAM RCRECALL MALTER TERNDBF ERNDEL_PTR NFLD_BEG NFLD_END NGO_COL RNGO_ROW ERNMOUSE NINDEX NLINES NORDER NREC_PTR NTEMP SBLANK BLOCATE BLOCATE2 NFORM_SCR NFORM_NDX FNPROGRAM PLSWAIT BUNIQUE BEXACT ALERT TERDIALOG FNFONTS NLEVEL PROMPT BRECALL FNCHOICE RELEASE FNALTERR CHOICE MCHOICE VALID FLD_DEL GO_TO CFILTER RIGHTMOUSECMEMPATH CSYSTEM NSCHEME WINDOW BANSI FNTAG DELETED CBROWSE FNRLOCK ALTER KEYBOARD CHR(23) PLAIN nFLDf DO BRW&cFORM_SCR WITH nFLD &cNAME = PADR(&cDEF,LEN(&cNAME)) &cNAME = &cDEF mVALID = &cWHENX _FLD = &cNAME TERBFOUND ERCDEF METERCNAME ETERCREST CWHEN CWHENX RCVALID RMDESC RMVALID RNPOPUP _CHANGE R_DELETE BSAVED TERFLD ERMALTER FNALTER BEXTRA CPROGRAM RFNRLOCK ERNFLD_BEG NFLD_END GET_NAME GET_DEF ALTER GET_VALID GET_REST GET_POPUP GET_WHEN NEXTKEY KEYBOARD CHR(23) PLAIN nFLDf RECORD UNLOCKED _CHANGEf _DELETEf DO BRV&cFORM_SCR WITH nFLD PROMPT()F mDESC mdESC WITH F &cNAME = PADR(&cREST,LEN(&cNAME)) &cNAME = &cREST IF TYPE("_FLD") = TYPE(cNAME) .AND. _FLD = &cNAME mVALID = &cVALID mVALIDf DO ERR &cERR TERBERR ERBFOUND TERCERR ETERCNAME CREST CVALID RMDESC RMDUMMY RMVALID RNPOPUP _CHANGE _DELETE RBSAVED MALTER TERFNALTER ERFLD ALTER DELETE BEXTRA VALID RCPROGRAM RFLD_UQS GET_NAME GET_VALID GET_DESC GET_REST GET_ERR GET_POPUP FLD_POP FNRLOCK FLD_DES SCR.DBF Screen Database Missing No screen specified in screen database FIELDS nCOL = SAY_COL + LEN(&cTXT) :P="@"+F +" "+ :P="@"+F :B=(F :W=BRW(FF :W=.F.8 :V=BRV(FF OMITF MEMOF TIMEOUT F TIMEOUT nTO_READ8 LAST CLOSE GROW ZOOM SYSTEM Press [F10] when done Press [Esc] to abort DO FLD_HELP WITH VARREAD() DO FLD_TAB WITH -1 KEYBOARD CHR(23) PLAIN CTRL-J DO JKEY WITH (SET("NEAR") = "ON") NODELETEF CTRL-T DO FLD_DEL WITH .T. CTRL-HOME DO FLD_TAB WITH 29 DO FLD_TAB WITH 9 READERROR BROWSE &cFIELDS &cBROWSE &cREAD WINDOW (cNAME) WHEN BRW(0) VALID:F BRV(0) NEARz ON READERROR &cREAD_ERR CWINDOW _JDBLCLICKFLD ERBADD TERBALIAS TERBDISPLAY BSAVED RCFIELDS RCNAME RCPIC CRANGE RCREAD CREAD_ERR CREST CTITLE RCVALID CWHEN CWHENX TERMALTER ERMDUMMY NFLD_BEG RNFLD_END RNPOPUP NSAY_COL NSAY_ROW FNFILE ICKCPROGPATH BNO_CDX GPATH NNO_CDX NFORM_SCR SAY_ROW SAY_COL SAY_TXT GET_COL GET_ROW ERGET_NAME GET_VALID GET_PIC GET_FUNC GET_REST GET_RANGE GET_POPUP GET_WHEN GET_BROWSENLEVEL ECBROWSE BMULT FNGETENV NSCHEME WINDOW DIALOG TMOUSECTRL YSTEM KEYBOARD CHR(23) PLAIN RECORD UNLOCKED bEXTRAf Record will be Deleted. Are you Sure? IF EOF() .OR. .NOT. (&cFILTER) bEXTRAf BBROWSE LCLICKNDEL_PTR RNREC_PTR RFNRLOCK ERFNALTERR BSAVED BEXTRA RWHEN RCPROGRAM RNDBF YESNO RDELETE VALID _DELETE cVARREADf cFORM_SCRf IN SCR cFORM_SCRf DO FLD_DES&cFORM_SCR WITH cVARREAD SCR.DBF Screen Database Missing cVARREADf cVARREADf cVARREADf cFLD_DESC = &cDESC PROMPT F mDUMMY = &cNAME FIELD FF SELECT &cD SKIP FOR FF .AND. .NOT.( SET FILTER TO &cD SEEK FF SEEK FF SEEK RTRIM(&cD) FIELD FF SKIP FOR F SKIP FOR F PROMPT() cFLD_DESC = &cD cFILTER_f SET FILTER TO &cFILTER_ FILES FF cFLD_DESC = &cDESC IF mDUMMY = PADR(&cPOPUP(nD,1),LEN(mDUMMY)) SKIP FOR F PROMPT() cFLD_DESC = &cD IF mDUMMY = &cPOPUP(nD,1) SKIP FOR F PROMPT() cFLD_DESC = &cD CVARREAD BALIAS ICKCD L_PTR RCDESC RCFILTER_ RCFLD_DESC CNAME CPOPUP RMDUMMY RMVALID RNFLD NPOPUP NTEMP NFORM_SCR CFORM_SCR FNFILE CPROGPATH TERBNO_CDX GPATH NNO_CDX GET_NAME GET_DESC RGET_POPUP NMEMOWIDTH Current Index not Orderd SCR.DBF Screen Database Missing No index specified in screen database Press [Enter] for default Press [Esc] to abort DO FLD_HELP DO FLD_POP KEYBOARD CHR(23) PLAIN WITH F PICTURE F FUNCTION F RANGE F COLOR F STORE PADR(&cDEF,LEN(&cNAME)) TO mDUMMY, &cNAME STORE &cDEF TO mDUMMY, &cNAME IF (&cWHENX) SPACE(F nCOL = LEN(&cTXT) DO DIALOG WITH PADR(&cTXT,WCOLS()-1 - 1) @ nROW,nCOL GET &cGET Press [F2] for popup READ &cREAD &cNAME = PADR(&cREST,LEN(&cNAME)) &cNAME = &cREST IF LASTKEY() <> 28 .AND. &cNAME = mDUMMY cFORM_SCRf mVALID = &cVALID DO ERR &cERR cSEARCH = cSEARCH + &cMSG cDISPLAY = cDISPLAY + IIF(TYPE(cNAME)="C",ALLTRIM(&cNAME),"") SOUNDEX(F SOUNDEX( UPPER( mDUMMY = &cMSG mDUMMYf &cNAME = mDUMMY mDUMMY = &cMSG RELEASE LOC_&cFLD PUBLIC LOC_&cFLD LOC_&cFLD = mDUMMY .AND.8 cLOCATE = cLOCATE + IIF(EMPTY(cLOCATE),"",".AND.") + "LOC_" + cFLD + "=RIGHT(RTRIM(" + STRTRAN(cMSG,"M->") + ")," + STR(LEN(LOC_&cFLD)) + ")" cLOCATE = cLOCATE + IIF(EMPTY(cLOCATE),"",".AND.") + "LOC_" + cFLD + "=LEFT(LTRIM(" + STRTRAN(cMSG,"M->") + ")," + STR(LEN(LOC_&cFLD)) + ")" .AND.8 .AND.8 LOCATE FOR &cLOCATE IF EOF() .OR. .NOT. (&cFILTER) Index Key cSEARCHf not found cFORM_SCRf DO FLD_SAY&cFORM_SCR not found -- but this is close cFORM_SCRf DO FLD_SAY&cFORM_SCR BALIAS ICKBDISPLAY RBERR RBLEFT RBRIGHT BSOUNDEX CCOLOR RCDEF RCDISPLAY RCGET CFUNC CLOCATE CNAME CRANGE TERCREAD CREST CSEARCH CVALID CWHEN RCWHENX MDUMMY DTHMVALID Y_ROW ICKNFLD NPOPUP NREC_PTR NSAY_COL NTEMP BLOCATE BLOCATE2 FNFILE CPROGPATH BNO_CDX ERSCR GPATH NNO_CDX NFORM_NDX DIALOG _POPUP GET_MSG SESAY_COL GET_NAME GET_VALID GET_READ GET_REST GET_ERR SAY_ROW SAY_TXT GET_PIC GET_FUNC EGET_RANGE GET_COLOR GET_DEF GET_POPUP GET_WHEN FLD_POP BEXACT PLSWAIT NORDER CFILTER FNFOUND Press [F10] when done Press [Esc] to abort DO FLD_HELP DO FLD_POP KEYBOARD CHR(23) PLAIN MOUSE DO FLD_MOUSE WITH .F. RIGHTMOUSE DO FLD_MOUSE WITH .T. IF (&cWHEN) &cNAME = PADR(&cREST,LEN(&cNAME)) &cNAME = &cREST nCOL = SAY_COL + LEN(&cTXT) PROMPT()F mDESC mdESC WITH F PICTURE F FUNCTION F RANGE F SIZE_1f SIZE F fnLEN( fnLEN( COLOR F COLOR F MEMOF MEMOFF cFILE = &cMEMO IF (&cWHENX) STORE &cMSG TO cMSG Press [F10] to exit field Press [Esc] to abort mVALID = &cVALID mVALIDf DO ERR &cERR SAY 8 SAY 8 EDITF EDIT SAY 8 IF .NOT. (&cWHENX) = &cVALID @ nROW,nCOL &cSAY STORE &cMSG TO cMSG EDITF Press [Tab] or [Shift]-[Tab] to exit field Press [F2] for popup @ nROW,nCOL &cGET READ &cREAD TIMEOUT F TIMEOUT nTO_READ8 @ nROW,nCOL &cGET READ &cREAD EDITF &cNAME = PADR(&cREST,LEN(&cNAME)) &cNAME = &cREST @ nROW,nCOL &cSAY @ nROW,nCOL &cSAY mVALID = &cVALID @ nROW,nCOL &cSAY mVALIDf DO ERR &cERR @ nROW,nCOL &cSAY MEMOFF cFILE = &cMEMO CWINDOW NWINDOW CKBERR RBMEMO RCCOLOR CFILE RCFLD_DESC CFUNC RCGET CMEMO RCMSG CNAME CRANGE CREAD CREST CSAY_COLORCSIZE CVALID CWHEN CWHENX MDESC RMDUMMY MVALID DTHNCOL NFLD_KEY KNPOPUP NSAY_COL NSAY_ROW NTEMP DIALOG CATE2 MOUSE RIGHTMOUSEBSAVED ERSCR _DESC NFLD_BEG NFLD_END GET_NAME GET_REST GET_WHEN GET_VALID FLD_SAY SEFLD_UQS SAY_ROW SAY_COL SAY_TXT GET_COL GET_ROW GET_DESC GET_READ GET_ERR GET_MSG EGET_PIC GET_FUNC GET_RANGE SIZE_1 SIZE_2 SIZE_3 GET_COLOR GET_POPUP NLEVEL FLD_SET BMULT RFNALTERR FLD_POP FLD_DES PLSWAIT APPEND FNRLOCK ALTER MALTER FNFILE KEYBOARD CHR(23) PLAIN SCR.DBF Screen Database Missing nFORMf nFORM_SCRf cVARREADf cVARREADf cVARREADf cVARREADf nCOL = SAY_COL + LEN(&cTXT) DEFINE WINDOW GET_HELP AT nLROW,nLCOL SIZE 11,39 FLOAT GROW SHADOW ZOOM TITLE " H E L P " &cFONTS Press [F10] when done Press [Esc] to abort NOEDIT8 MODIFY MEMO GET_MEMO &cTEMP WINDOW GET_HELP GET_HELP DIALOG cFORM_SCRf EDITF MEMOF CVARREAD NFORM CKF10 RBALIAS RCFONTS RCPIC CTEMP RCVALID MVALID RNCOL RNFLD NLASTKEY NLROW NLCOL FNFILE CPROGPATH _COLORBNO_CDX GPATH NNO_CDX NFORM_SCR GET_NAME GET_VALID BDEBUG GET_PIC SAY_ROW SAY_COL SAY_TXT KGET_COL GET_ROW GET_MEMO NSCHEME FNFONTS DIALOG RELEASE FNLASTKEY KEYBOARD CHR(23) PLAIN BHELP CKNMOUSE RNFLD RNFLD_BEG RCTEMP NTEMP RNFLD_END FLD_HELP KEYBOARD CHR(23) PLAIN SCR.DBF Screen Database Missing cVARREADf cVARREADf cVARREADf cVARREADf DO FLD_HELP WITH nFLD nCOL = SAY_COL + LEN(&cTXT) RANGE F SIZE_1f SIZE F fnLEN( fnLEN( COLOR F PROMPT F mDUMMY = &cNAME FIELD FF SELECT &cD SKIP FOR FF .AND. .NOT.( SET FILTER TO &cD SEEK FF SEEK FF SEEK RTRIM(&cD) No records on file cFILTER_f SET FILTER TO &cFILTER_ DEFINE POPUP POP_UP FROM nROW,nCOL PROMPT &cD SHADOW DEACTIVATE POPUP POP_UP Press [Enter] to Select cFILTER_f SET FILTER TO &cFILTER_ &cNAME = PADR(&cPOPUP(1,1),LEN(mDUMMY)) &cNAME = &cPOPUP(1,1) IF bADD .OR. mDUMMY <> &cNAME SCATTER MEMVARFF FILES FF FILES FF LIKE F cD = ALLTRIM(&cD) No files matching specified directory. IF ASCAN(FLD,&cNAME) = 0 &cNAME = FLD(1,1) Press [Enter] to Select @ nROW,nCOL &cGET FUNCTION '^*T' FROM FLD WHEN fnPOPKEY() READ &cREAD &cNAME = PADR(&cNAME,LEN(mDUMMY)) IF bADD .OR. mDUMMY <> &cNAME SCATTER MEMVARFF BARFF PUBLIC &cBAR STORE 1 TO &cBAR IF mDUMMY = PADR(&cPOPUP(nD,1),LEN(mDUMMY)) STORE nD TO &cBAR IF mDUMMY = &cPOPUP(nD,1) STORE nD TO &cBAR DEFINE BAR nD OF POP_UP PROMPT &cD DEACTIVATE POPUP POP_UP Press [Enter] to Select ACTIVATE POPUP POP_UP BAR &cBAR STORE BAR() TO &cBAR &cNAME = PADR(&cPOPUP(BAR(),1),LEN(mDUMMY)) &cNAME = &cPOPUP(BAR(),1) CVARREAD CKFLD RBALIAS RBFOUND RCBAR CCOLOR RCFILTER_ RCNAME CPOPUP RCRANGE CREAD CSIZE MDUMMY MVALID _COLORNDBF NLASTKEY NPOPUP NSAY_COL NSAY_ROW NTEMP FNFILE CPROGPATH BNO_CDX GPATH NNO_CDX NFORM_SCR GET_NAME GET_POPUP SAY_ROW SAY_COL SAY_TXT GET_COL SEGET_ROW ERGET_READ GET_RANGE SIZE_1 SIZE_2 GET_PIC SIZE_3 GET_COLOR NMEMOWIDTHPOP_UP HDIALOG BDISPLAY FLD_SHW CPATH_SEP NEXTKEY nCOL = SAY_COL + LEN(&cTXT) PROMPT()F mDESC mdESC PICTURE F FUNCTION F RANGE F SIZE_1f SIZE F fnLEN( fnLEN( COLOR F COLOR F BARFF RELEASE &cBAR MEMOF MEMOFF PUBLIC &cMEMO &cMEMO = fnFILE() cFILE = &cMEMO DEFINE WINDOW (cMEMO) AT nSAY_ROW,nSAY_COL SIZE nROW-nSAY_ROW-1,nCOL-nSAY_COL-1 CLOSE FLOAT GROW ZOOM TITLE &cFONTS &cNAME = PADR(&cDEF,LEN(&cNAME)) &cNAME = &cDEF IF (&cWHEN) &cNAME = PADR(&cREST,LEN(&cNAME)) &cNAME = &cREST SAY 8 EDITF mVALID = &cVALID @ nROW,nCOL &cSAY CWINDOW NWINDOW CKBMEMO RCBAR RCCOLOR RCDEF CFILE CFLD_DESC CFONTS CFUNC RCMEMO CNAME RCPIC CRANGE CREST CSAY_COLORCSIZE CVALID LORCWHEN CWHENX MDESC MDUMMY MVALID Y_ROW NPOPUP NSAY_COL NSAY_ROW KBDISPLAY SBLANK FNFOUND MALTER FNALTER NFLD_BEG NFLD_END SAY_ROW ESAY_COL RSAY_TXT GET_COL GET_ROW GET_NAME GET_VALID GET_DESC GET_REST GET_PIC HGET_FUNC HGET_RANGE SIZE_1 SIZE_2 SIZE_3 GET_COLOR GET_WHEN RGET_DEF GET_POPUP FNFONTS NLEVEL EFLD_DES nLASTKEYf _OBJf nLASTKEYf nLASTKEYf NLASTKEY NFLD_KEY K_OBJ RNFLAG RNMAX NTEMP NFLD_END NFLD_BEG RNMOUSE SCR.DBF Screen Database Missing nCOL = SAY_COL + LEN(&cTXT) PICTURE F FUNCTION F RANGE F SIZE_1f SIZE F fnLEN( fnLEN( COLOR F COLOR F MEMOF SAY 8 EDITF @ nROW,nCOL &cSAY BALIAS CCOLOR KCFLD_DESC CFUNC RCNAME RCPIC CRANGE CREST CSAY_COLORCSIZE RCVALID CWHEN CWHENX MDUMMY COLORND NRECNO LORNROW NSAY_COL NSAY_ROW FNFILE CPROGPATH BNO_CDX GPATH NNO_CDX NFLD_BEG NFLD_END KSAY_ROW SAY_COL SAY_TXT GET_COL GET_ROW GET_NAME GET_VALID GET_REST GET_PIC GET_FUNC GET_RANGE SIZE_1 SIZE_2 SIZE_3 GET_COLOR GET_WHEN RNDBF FLD_DES NLASTKEY SCR.DBF Screen Database Missing Bad screen database nCOL = SAY_COL + LEN(&cTXT) PICTURE F FUNCTION F COLOR F FILLF @ SAY_ROW,SAY_COL FILL TO GET_ROW,GET_COL &cCOLOR DOUBLEF PANELF DOUBLEF PANELF @ SAY_ROW,SAY_COL TO GET_ROW,GET_COL &cSAY nSAY_COL = SAY_COL + MAX((GET_COL - SAY_COL - LEN(&cTEMP)) / 2,0) @ SAY_ROW,nSAY_COL SAY &cSAY MEMOF EDITF @ SAY_ROW,SAY_COL SAY &cSAY CCOLOR CFUNC KCPIC RCTEMP RCTXT NTEMP OLORFNFILE CPROGPATH BNO_CDX GPATH NNO_CDX COLORNFORM_SCR NFLD_BEG NFLD_END RNMOUSE NSAY_ROW SAY_ROW NSAY_COL SAY_COL SAY_TXT GET_COL GET_ROW GET_NAME SAY_PIC SAY_FUNC SAY_COLOR GET_PIC GET_VALID No index specified in screen database cSEARCH = cSEARCH + &cMSG DO FLD_UNQ&cFORM_NDX BUNIQUE KCSEARCH NREC_PTR RNFORM_NDX M_NDX GET_MSG ORBADD cINDEXf nINDEXf cINDEX(nINDEX,1)f cINDEX(nINDEX,2) IN SCR cINDEX(nINDEX,2) IN SCR cFORM_SCRf Index Key(s) Not Unique CINDEX BFLAG KNSAV RNINDEX NFORM_NDX CFORM_NDX BUNIQUE FLD_UNQ nMOUSEf IN SCR OPTION DO FLD_TXT&cFORM_SCR DO OPT_TXT&cFORM_SCR DO OPT_SAY&cFORM_SCR DO OPT_GET&cFORM_SCR bEXTRAf TRACE DEBUG DEFINE WINDOW OPTION AT nROW-nLINES,nCOL SIZE nLINES-1,38 FLOAT &cFONTS cPRNf \ Ctrl-[ Help function key Ctrl-G Del Delete current char Ctrl-V Ins Toggle Insert mode OPT_HELP Update what? DO OPT_GET&cFORM_SCR BEXTRA CWINDOW KNPARAMETERBADD METERBDISPLAY BPRINT BSAVED BSIDEWAYS CCHOICE CCHOICES CFILE CFONTS CFORM_SCR CPROGRAM NMOUSE COLORNDBF NFLD_BEG RNFLD_END NLINES NREC_PTR NTEMP SBLANK NFORM_SCR FNPROGRAM FNFILE PLSWAIT ALERT TERDIALOG FNFONTS NLEVEL OPTION PROMPT FNCHOICE RELEASE CHOICE MCHOICE SET_VIEW PRINT YESNO FNPRINT RSIDEWAYS ENDSPOOL BPR_DRAFT COMMAND HCOPY_FILE NSCHEME WINDOW NWINDOW BANSI FNLASTKEY Press [F10] when done Press [Esc] to abort DO FLD_HELP DO FLD_POP KEYBOARD CHR(23) PLAIN MOUSE DO FLD_MOUSE WITH .F. RIGHTMOUSE DO FLD_MOUSE WITH .T. IF (&cWHEN) &cNAME = PADR(&cREST,LEN(&cNAME)) &cNAME = &cREST DO OPT_TXT&cFORM_SCR DO OPT_SAY&cFORM_SCR nCOL = SAY_COL + LEN(&cTXT) PROMPT()F mDESC mdESC OPT(nFLD - nFLD_BEG + 1)8 WITH F PICTURE F FUNCTION F RANGE F SIZE_1f SIZE F fnLEN( fnLEN( COLOR F COLOR F MEMOF MEMOFF IF (&cWHENX) STORE &cMSG TO cMSG Press [F10] to exit field Press [Esc] to abort mVALID = &cVALID mVALIDf DO ERR &cERR SAY 8 SAY 8 EDITF EDIT SAY 8 IF .NOT. (&cWHENX) = &cVALID @ nROW,nCOL &cSAY STORE &cMSG TO cMSG EDITF Press [Tab] or [Shift]-[Tab] to exit field Press [F2] for popup @ nROW,nCOL &cGET READ &cREAD EDITF &cNAME = PADR(&cREST,LEN(&cNAME)) &cNAME = &cREST @ nROW,nCOL &cSAY @ nROW,nCOL &cSAY mVALID = &cVALID @ nROW,nCOL &cSAY mVALIDf DO ERR &cERR @ nROW,nCOL &cSAY DO OPT_TXT&cFORM_SCR CWINDOW NWINDOW KBERR METERBMEMO ETERCCOLOR CFLD_DESC CFUNC CMEMO CNAME CRANGE CREAD CREST OLORCSAY CSAY_COLORCSIZE RCTXT CVALID CWHEN CWHENX MDESC MVALID RM_SCR NFLD_KEY NPOPUP TERNSAY_COL NSAY_ROW NTEMP DIALOG MOUSE RIGHTMOUSEBSAVED _DESC NFLD_BEG NFLD_END GET_NAME GET_REST GET_WHEN RGET_VALID SAY_ROW SAY_COL HSAY_TXT GET_COL GET_ROW GET_DESC GET_READ GET_ERR GET_MSG RGET_PIC GET_FUNC GET_RANGE SIZE_1 SIZE_2 SIZE_3 GET_COLOR GET_POPUP NLEVEL FLD_SET FLD_POP RFLD_DES nCOL = SAY_COL + LEN(&cTXT) PROMPT()F mDESC mdESC PICTURE F FUNCTION F RANGE F SIZE_1f SIZE F fnLEN( fnLEN( COLOR F COLOR F BARFF RELEASE &cBAR MEMOF MEMOFF DEFINE WINDOW (cMEMO) AT nSAY_ROW,nSAY_COL SIZE nROW-nSAY_ROW-1,nCOL-nSAY_COL-1 CLOSE FLOAT GROW ZOOM TITLE &cFONTS &cNAME = PADR(&cDEF,LEN(&cNAME)) &cNAME = &cDEF IF (&cWHEN) &cNAME = PADR(&cREST,LEN(&cNAME)) &cNAME = &cREST SAY 8 EDITF mVALID = &cVALID @ nROW,nCOL &cSAY CWINDOW NWINDOW KBMEMO ETERCBAR ETERCCOLOR CFLD_DESC CFONTS CFUNC CMEMO CNAME CRANGE CREST CSAY_COLORCSIZE OLORCTXT CVALID LORCWHEN RCWHENX MDESC MVALID NPOPUP NSAY_COL NSAY_ROW BDISPLAY SBLANK NFLD_BEG NFLD_END SAY_ROW SAY_COL SAY_TXT GET_COL GET_ROW GET_NAME EGET_VALID GET_DESC GET_REST GET_PIC GET_FUNC GET_RANGE SIZE_1 SIZE_2 SIZE_3 GET_COLOR GET_WHEN RGET_DEF GET_POPUP FNFONTS NLEVEL FLD_DES MEMOF STORE &cNAME TO OPT(nFLD - nFLD_BEG + 1) STORE OPT(nFLD - nFLD_BEG + 1) TO &cNAME CNAME KNFLD ETERSCR ETERBSAVED NFLD_END NFLD_BEG GET_NAME GET_PIC KEYBOARD CHR(23) PLAIN cPR_PRNf Send a formfeed to printer? PRINTz SET PRINT &cPRINT YESNO KFNPRINT ERCPR_PRN ERCPRINT ENDSPOOL KEYBOARD CHR(23) PLAIN CWOUTPUT KEYBOARD CHR(23) PLAIN UPPER(FFF cKEY = &cKEY Search cINDEXf JKEY.PLB JKEY.FLL BNEAR KCCASE RCKEY ERCTALK CWOUTPUT CBROWSE CINDEX NINDEX JKEYCANC CPROGPATH JKEYINIT KEYBOARD CHR(23) PLAIN _OBJf CWOUTPUT K_OBJ Invalid Date, retype Invalid Input, retype SYSMENU \ DEFINE WINDOW DEBUGGER AT 1,17 SIZE 16-1-1,MAX(62-17-1,nMAX) TITLE " Debugger Access Menu " NOGROW NOFLOAT &cFONTS Program: F Line # : FF \